home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir27 / grphca22.zip / EXAMPLES.ZIP / TRIG.PLT < prev    next >
Text File  |  1993-02-03  |  2KB  |  98 lines
  1. paper size 11 by 8.5
  2. color lblue
  3. frame
  4. samples 50
  5. map x -10 10
  6. draw x
  7. xlabel 'x'
  8. color lred
  9. plot sin(x),atan(x),cos(atan(x))
  10. color lblue
  11. draw y
  12. ylabel 'sin(x),atan(x),cos(atan(x))'
  13. title 'Trigonometric Functions I'
  14. pause 3
  15. clear
  16.  
  17. frame
  18. samples 100 
  19. color lblue
  20. map x -pi/2 pi
  21. draw x
  22. xlabel 'x'
  23. color lred
  24. plot cos(x),-(sin(x) > sin(x+1) ? sin(x) : sin(x+1))
  25. color lblue
  26. draw y
  27. ylabel 'cos(x),-(sin(x) > sin(x+1) ? sin(x) : sin(x+1))'
  28. title 'Trigonometric Functions II'
  29. pause 3
  30. clear
  31.  
  32. samples 200 
  33. map x -3 5
  34. color lblue
  35. draw x
  36. xlabel 'x'
  37. color lred
  38. plot asin(x),acos(x)
  39. color lblue
  40. draw y
  41. ylabel 'asin(x),acos(x)'
  42. title 'Trigonometric Functions III'
  43. pause 3
  44. clear
  45.  
  46. frame
  47. map x -30 20
  48. color lblue
  49. draw x
  50. xlabel 'x'
  51. color lred
  52. plot besj0(x)*0.12e1 con, (x**besj0(x))-2.5 add
  53. color lblue
  54. draw y
  55. ylabel 'besj0(x)*0.12e1 con, (x**besj0(x))-2.5'
  56. title 'Bessel Functions I'
  57. pause 3
  58. clear
  59.  
  60. frame
  61. samples 400
  62. map x -10 10
  63. color lblue
  64. draw x
  65. xlabel 'x'
  66. color lred
  67. plot real(sin(x)**besj0(x))
  68. color lblue
  69. draw y
  70. ylabel 'real(sin(x)**besj0(x))'
  71. title 'Bessel Functions II'
  72. pause 3
  73. clear
  74.  
  75. frame
  76. map x -5*pi 5*pi y -5 5
  77. color lblue
  78. draw x y
  79. xlabel 'x'
  80. ylabel 'real(tan(x)/atan(x)), 1/x'
  81. color lred
  82. plot real(tan(x)/atan(x)), 1/x
  83. color lblue
  84. title 'Trigonometric Functions IV'
  85. pause 3
  86.  
  87. clear
  88. frame
  89. samples 800
  90. map x -30 20
  91. color lred
  92. plot sin(x*20)*atan(x)
  93. color lblue
  94. draw x y
  95. xlabel 'x'
  96. ylabel 'sin(x*20)*atan(x)'
  97. title 'Trigonometric Functions V'
  98.